home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 21.zip
/
BS1 part 21
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z
/
Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf
/
rexx.lzh
/
ADProComm.rexx
next >
Wrap
OS/2 REXX Batch file
|
1992-03-13
|
816b
|
53 lines
/*
ADPro Communications script
*/
arguments = getclip(ppuser_adargs)
if args = '' then exit
parse var arguments iwidth ';' iheight ';' rendermode ';' filename ';' mode
adstart = 0
early = 1
do 10
if ~show(p, 'ADPro') then
call delay(100)
else
do
adstart = 1
leave
end
early = 0
end
if ~adstart then
do
call setclip(ppuser_adclip, "0")
exit_msg()
end
call setclip(ppuser_adclip, "1")
if ~early then
call ppm_Inform(1,"Started ADPro. You must quit ADPro to reimport BitMap..",)
address 'ADPro'
'ADPRO_TO_FRONT'
'SCREEN_TYPE' mode
'LFORMAT' IFF
'SFORMAT' IFF
'LOAD' '"'filename'"'
'RENDER_TYPE' rendermode
'ABS_SCALE' iwidth iheight
exit_msg()
exit_msg: procedure
do
arg message
if message ~= '' then call ppm_Inform(1,message,)
exit
end